home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cstrings.arc / STRUPPER.C < prev   
Encoding:
Text File  |  1985-08-06  |  2.5 KB  |  75 lines
  1. /*
  2.     CSTRINGS.LBR VERSION 1.0
  3.     Spark Software, Inc.
  4.  
  5.         If you find this software of use, it is requested that you send
  6.         a donation ($10.00 suggested) to:
  7.  
  8.             Spark Software, Inc.
  9.             24 Royal Crest Dr., #5
  10.             Nashua, NH  03060
  11.  
  12.         Upon receiving your donation, your name will be added to the 
  13.         List of Registered Users, and future updates can be obtained
  14.         from the SPARKIE RBBS at (603) 888-8179.
  15.  
  16.         If you include an extra $10.00 with your donation, the newest
  17.         version of CSTRINGS.LBR will be mailed to you.
  18.  
  19.         Call SPARKIE RBBS at the number above for other Spark Software
  20.         products!!!
  21. */
  22.  
  23. char *strtrans ();
  24.  
  25.                     /* This table contains character
  26.                        translation codes for
  27.                        converting lower case to
  28.                        upper case */
  29. static char high_table[256] = {
  30.       0,   1,   2,     3,   4,   5,    6,   7,   8,   9,
  31.      10,  11,  12,    13,  14,  15,  16,  17,  18,  19,
  32.      20,  21,  22,    23,  24,  25,  26,  27,  28,  29,
  33.      30,  31,  32,    33,  34,  35,  36,  37,  38,  39,
  34.      40,  41,  42,    43,  44,  45,  46,  47,  48,  49,
  35.      50,  51,  52,    53,  54,  55,  56,  57,  58,  59,
  36.      60,  61,  62,    63,  64,  65,  66,  67,  68,  69,
  37.      70,  71,  72,    73,  74,  75,  76,  77,  78,  79,
  38.      80,  81,  82,    83,  84,  85,  86,  87,  88,  89,
  39.      90,  91,  92,    93,  94,  95,  96,  65,  66,  67,
  40.      68,  69,  70,    71,  72,  73,  74,  75,  76,  77,
  41.      78,  79,  80,    81,  82,  83,  84,  85,  86,  87,
  42.      88,  89,  90, 123, 124, 125, 126, 127, 128, 129,
  43.     130, 131, 132, 133, 134, 135, 136, 137, 138, 139,
  44.     140, 141, 142, 143, 144, 145, 146, 147, 148, 149,
  45.     150, 151, 152, 153, 154, 155, 156, 157, 158, 159,
  46.     160, 161, 162, 163, 164, 165, 166, 167, 168, 169,
  47.     170, 171, 172, 173, 174, 175, 176, 177, 178, 179,
  48.     180, 181, 182, 183, 184, 185, 186, 187, 188, 189,
  49.     190, 191, 192, 193, 194, 195, 196, 197, 198, 199,
  50.     200, 201, 202, 203, 204, 205, 206, 207, 208, 209,
  51.     210, 211, 212, 213, 214, 215, 216, 217, 218, 219,
  52.     220, 221, 222, 223, 224, 225, 226, 227, 228, 229,
  53.     230, 231, 232, 233, 234, 235, 236, 237, 238, 239,
  54.     240, 241, 242, 243, 244, 245, 246, 247, 248, 249,
  55.     250, 251, 252, 253, 254, 255
  56. };
  57.  
  58. /*
  59.  *    char *
  60.  *    strupper (str)
  61.  *    char *str;
  62.  *
  63.  *    This function returns the string str with all lower case characters
  64.  *    converted to upper case.  It simply calls strtrans (in module
  65.  *    strtrans.obj) with the above tranlation table.
  66.  */
  67.  
  68. char *strupper (str)
  69. register char *str;
  70. {
  71.  
  72.     return (strtrans (str, high_table));
  73.  
  74. } /* strupper */
  75.